00100		SUBROUTINE ADUP(X)
00200		DIMENSION A(20)
00300		COMMON K,ACC,IOUT
00310		IF(ACC.EQ.0)GO TO 4
00500		X=0
00550	5	ACCEPT 3,A
00575	3	FORMAT(20F)
00600		DO 1 J=1,20
00650		IF(A(J).EQ.-1)GO TO 5
00675	C  TYPE -1 IN INPUT STRING TO ALLOW FURTHER LINES.
00700	1	X=X+A(J)
00800	4	IF(A(1).NE.-99.AND.A(1).NE.-999)WRITE(IOUT,2)X
00850	C  -99 AND -999 ARE FOR BACKUPS.
00900	2	FORMAT('+',F12.2/)
01000		END
01100	
01200		SUBROUTINE TYP(J,I)
01300		COMMON K,ACC,IOUT
01400		K=J
01500		WRITE(IOUT,10)J,I
01600	10	FORMAT(' LINE ',I2,A1,$)
01700		END
01800		SUBROUTINE STDED(X)
01900		END
02000		SUBROUTINE SMALL(X)
02100		END